home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
MENU_UTL
/
LIBPAS
/
TESTDIR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-06-14
|
335b
|
20 lines
program testdir;
{ program attempts to read directory }
{ shows filenames as column }
uses dos,crt,library;
var
Fchoice : FnameType;
i,n : integer;
{ *************** MAIN PROGRAM *************** }
begin
ClrScr;
Fchoice := Get_File_Menu('*.*',8,10,30);
Put_string(Fchoice,24,1,0);
ReadLn;
end.